home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / amiga / Graphics.mod < prev    next >
Encoding:
Modula Implementation  |  1995-01-24  |  489 b   |  22 lines
  1. IMPLEMENTATION MODULE Graphics ;
  2.  
  3. IMPORT SYSTEM, M2Lib, Hardware, Graphics ;
  4.  
  5. TYPE
  6.   AdrPtr = POINTER TO SYSTEM.ADDRESS ;
  7.  
  8. PROCEDURE InitAnimate( animKey : AdrPtr ) ;
  9. BEGIN animKey^ := NIL
  10. END InitAnimate ;
  11.  
  12. PROCEDURE RASSIZE( w , h : CARDINAL ) : CARDINAL ;
  13. BEGIN RETURN h*CARDINAL( SYSTEM.BITSET((w+15)/8) * {1..15})
  14. END RASSIZE ;
  15.  
  16. PROCEDURE RemBob( b : BobPtr ) ;
  17. BEGIN b^.Flags := b^.Flags+BOBSAWAY ;
  18. END RemBob ;
  19.  
  20. BEGIN GfxBase := M2Lib.OpenLib( GRAPHICSNAME, VERSION )
  21. END Graphics.
  22.